home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tg.d64 / taxcalc84 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  31KB  |  865 lines
  1. 2000 POKE45,PEEK(174)
  2. 2010 POKE46,PEEK(175)
  3. 2020 CLR:RESTORE
  4. 3000 DIMA(5,5),B$(5,5),C(5,5),D(5,5),E(5,5),F(5,5)
  5. 4000 PRINT"[147][144]":CLR:POKE53281,15:POKE53280,0
  6. 4010 PRINT"[147]":A$="TIME SOFTWARE PRESENTS":A$="        "+A$:FORI=1TOLEN(A$)
  7. 4020 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]":FORZZ=1TO25:NEXTZZ:NEXTI
  8. 4030 FORY=1TO3000:NEXTY
  9. 4040 PRINT"":A$="T A X C A L C 84":A$="           "+A$:FORI=1TOLEN(A$)
  10. 4050 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]":FORZZ=1TO25:NEXTZZ:NEXTI
  11. 4060 FORY=1TO3000:NEXTY
  12. 4070 PRINT"[144]":A$="1984 INDIVIDUAL INCOME TAX PROGRAM":A$="  "+A$
  13. 4075 FORI=1TOLEN(A$)
  14. 4080 PRINTMID$(A$,LEN(A$)-I+1,I);"[145]":FORZZ=1TO25:NEXTZZ:NEXTI
  15. 4090 FORY=1TO2000:NEXTY
  16. 5000 PRINT"[147]   TIME SOFTWARE    VERSION 03/01/85    "
  17. 5002 PRINT"[144]   1984 INDIVIDUAL INCOME TAX RETURN    ":PRINT
  18. 5005 PRINT"THIS TAX PROGRAM HAS BEEN THOROUGHLY"
  19. 5010 PRINT"REVIEWED AND CHECKED TO ENSURE THAT THE"
  20. 5020 PRINT"RESULTS OBTAINED ARE RELIABLE."
  21. 5030 PRINT"NEVERTHELESS, WE CANNOT ASSUME ANY"
  22. 5040 PRINT"RESPONSIBILITY OR LIABILITY WHATSOEVER"
  23. 5050 PRINT"FROM THE USE OF THIS PROGRAM."
  24. 5052 PRINT"FOR ANY QUESTIONS OR TIPS ABOUT THIS"
  25. 5053 PRINT"PROGRAM, PLEASE DROP ME A LINE AT:"
  26. 5054 PRINT"     14 KALMAR AVENUE"
  27. 5055 PRINT"     SCARBOROUGH, ONTARIO"
  28. 5056 PRINT"     M1N 3G3"
  29. 5060 PRINT"      PROVINCE OF ONTARIO VERSION       "
  30. 5080 FORU=1TO5000:NEXTU
  31. 5100 PRINT"[147][144]                  MENU                  "
  32. 5110 PRINT"  PLEASE MAKE A SELECTION"
  33. 5120 PRINT"  F1[146][144] BEGIN A NEW FILE (INPUT NEW DATA)"
  34. 5130 PRINT"  F2[146][144] LOAD FILE FROM DISK"
  35. 5140 PRINT"  F3[146][144] DELETE FILE FROM DISK"
  36. 5150 PRINT"  F4[146][144] SAVE THE FILE"
  37. 5160 PRINT"  F5[146][144] END PROGRAM"
  38. 5165 PRINT"  F6[146][144] RUN TAX RETURN"
  39. 5167 PRINT"  F7[146][144] CHANGE DATA IN SECTION"
  40. 5170 PRINT"  F8[146][144] CHANGE COLOURS"
  41. 5190 GOSUB20000
  42. 5200 GETH$:IFH$=""THEN5200
  43. 5210 IFH$="[133]"THEN6000
  44. 5220 IFH$="[137]"THEN5400
  45. 5230 IFH$="[134]"THEN5700
  46. 5240 IFH$="[138]"THEN11000
  47. 5250 IFH$="[135]"THENPRINT"[147]":END
  48. 5255 IFH$="[139]"THEN13000
  49. 5265 IFH$="[136]"THEN18000
  50. 5267 IFH$="[140]"THEN19000
  51. 5270 GOTO5200
  52. 5400 CLR:INPUT"[147]FILE NAME TO BE LOADED";F$
  53. 5408 PRINT"[147]LOADING FILE "F$
  54. 5410 OPEN15,8,5,"0:"+F$+",S,R"
  55. 5412 INPUT#15,B$(0,0),B$(0,1),B$(0,2),B$(0,3),B$(0,4),B$(0,5)
  56. 5413 INPUT#15,B$(1,0),B$(1,1),B$(1,2),B$(1,3),B$(1,4),B$(1,5)
  57. 5414 INPUT#15,B$(2,0),B$(2,1),B$(2,2),B$(2,3),B$(2,4),B$(2,5)
  58. 5415 INPUT#15,B$(3,0),B$(3,1),B$(3,2),B$(3,3),B$(3,4),B$(3,5)
  59. 5416 INPUT#15,B$(4,0),B$(4,1),B$(4,2),B$(4,3),B$(4,4),B$(4,5)
  60. 5417 INPUT#15,B$(5,0),B$(5,1),B$(5,2),B$(5,3),B$(5,4),B$(5,5)
  61. 5418 INPUT#15,A(0,0),A(0,1),A(0,2),A(0,3),A(0,4),A(0,5)
  62. 5419 INPUT#15,A(1,0),A(1,1),A(1,2),A(1,3),A(1,4),A(1,5)
  63. 5420 INPUT#15,A(2,0),A(2,1),A(2,2),A(2,3),A(2,4),A(2,5)
  64. 5421 INPUT#15,A(3,0),A(3,1),A(3,2),A(3,3),A(3,4),A(3,5)
  65. 5422 INPUT#15,A(4,0),A(4,1),A(4,2),A(4,3),A(4,4),A(4,5)
  66. 5423 INPUT#15,A(5,0),A(5,1),A(5,2),A(5,3),A(5,4),A(5,5)
  67. 5424 INPUT#15,C(0,0),C(0,1),C(0,2),C(0,3),C(0,4),C(0,5)
  68. 5425 INPUT#15,C(1,0),C(1,1),C(1,2),C(1,3),C(1,4),C(1,5)
  69. 5426 INPUT#15,C(2,0),C(2,1),C(2,2),C(2,3),C(2,4),C(2,5)
  70. 5427 INPUT#15,C(3,0),C(3,1),C(3,2),C(3,3),C(3,4),C(3,5)
  71. 5428 INPUT#15,C(4,0),C(4,1),C(4,2),C(4,3),C(4,4),C(4,5)
  72. 5429 INPUT#15,C(5,0),C(5,1),C(5,2),C(5,3),C(5,4),C(5,5)
  73. 5430 INPUT#15,D(0,0),D(0,1),D(0,2),D(0,3),D(0,4),D(0,5)
  74. 5431 INPUT#15,D(1,0),D(1,1),D(1,2),D(1,3),D(1,4),D(1,5)
  75. 5432 INPUT#15,D(2,0),D(2,1),D(2,2),D(2,3),D(2,4),D(2,5)
  76. 5433 INPUT#15,D(3,0),D(3,1),D(3,2),D(3,3),D(3,4),D(3,5)
  77. 5434 INPUT#15,D(4,0),D(4,1),D(4,2),D(4,3),D(4,4),D(4,5)
  78. 5435 INPUT#15,D(5,0),D(5,1),D(5,2),D(5,3),D(5,4),D(5,5)
  79. 5436 INPUT#15,E(0,0),E(0,1),E(0,2),E(0,3),E(0,4),E(0,5)
  80. 5437 INPUT#15,E(1,0),E(1,1),E(1,2),E(1,3),E(1,4),E(1,5)
  81. 5438 INPUT#15,E(2,0),E(2,1),E(2,2),E(2,3),E(2,4),E(2,5)
  82. 5439 INPUT#15,E(3,0),E(3,1),E(3,2),E(3,3),E(3,4),E(3,5)
  83. 5440 INPUT#15,E(4,0),E(4,1),E(4,2),E(4,3),E(4,4),E(4,5)
  84. 5441 INPUT#15,E(5,0),E(5,1),E(5,2),E(5,3),E(5,4),E(5,5)
  85. 5442 INPUT#15,F(0,0),F(0,1),F(0,2),F(0,3),F(0,4),F(0,5)
  86. 5443 INPUT#15,F(1,0),F(1,1),F(1,2),F(1,3),F(1,4),F(1,5)
  87. 5444 INPUT#15,F(2,0),F(2,1),F(2,2),F(2,3),F(2,4),F(2,5)
  88. 5445 INPUT#15,F(3,0),F(3,1),F(3,2),F(3,3),F(3,4),F(3,5)
  89. 5446 INPUT#15,F(4,0),F(4,1),F(4,2),F(4,3),F(4,4),F(4,5)
  90. 5447 INPUT#15,F(5,0),F(5,1),F(5,2),F(5,3),F(5,4),F(5,5)
  91. 5500 CLOSE15
  92. 5505 GOSUB15000
  93. 5508 PRINT:PRINT"FILE "F$" LOADED":FORP=1TO1000:NEXTP
  94. 5509 GOSUB20000
  95. 5510 GOTO5100
  96. 5700 INPUT"[147]FILE TO BE DELETED";F$
  97. 5701 PRINT:PRINT"ARE YOU SURE (Y/N)?":PRINT
  98. 5702 GETD$:IFD$=""THEN5702
  99. 5703 IFD$="N"THEN5100
  100. 5704 IFD$<>"Y"GOTO5702
  101. 5705 PRINT"DELETING FILE "F$
  102. 5710 OPEN15,8,15
  103. 5720 PRINT#15,"SCRATCH0:"+F$+""
  104. 5730 CLOSE15
  105. 5735 GOSUB15000
  106. 5738 PRINT"FILE "F$" DELETED":FORI=1TO1000:NEXTI
  107. 5739 GOSUB10000
  108. 5740 GOTO5100
  109. 6000 PRINT"[147][144]":CLR
  110. 6110 PRINT"[147]BASIC INFORMATION":PRINT
  111. 6120 INPUT"YOUR NAME";B$(0,0)
  112. 6130 INPUT"YOUR ADDRESS-STREET";B$(0,1)
  113. 6140 INPUT"            -CITY";B$(0,2)
  114. 6150 INPUT"            -PROVINCE";B$(0,3)
  115. 6160 INPUT"            -POSTAL CODE";B$(0,4)
  116. 6170 INPUT"YOUR S.I.N.";B$(0,5)
  117. 6180 INPUT"YEAR OF BIRTH (XXXX)";A(0,0)
  118. 6190 INPUT"MONTH OF BIRTH";B$(1,0)
  119. 6200 INPUT"DAY OF BIRTH";A(0,1)
  120. 6210 INPUT"STATUS";B$(1,1)
  121. 6220 IFB$(1,1)<>"MARRIED"GOTO6250
  122. 6230 INPUT"NAME OF SPOUSE";B$(1,2)
  123. 6240 INPUT"SPOUSE'S S.I.N.";B$(1,3)
  124. 6250 INPUT"TYPE OF WORK IN YEAR";B$(1,4)
  125. 6260 INPUT"NAME OF PRESENT EMPLOYER";B$(1,5)
  126. 6270 PRINT:PRINT"DATA ENTERED CORRECTLY? (Y/N)"
  127. 6280 GETR$:IFR$=""THEN6280
  128. 6290 IFR$="N"THEN6110
  129. 6295 PRINT"'C' TO CONTINUE, 'M' FOR MENU":PRINT
  130. 6296 GOSUB20000
  131. 6297 GETC$:IFC$=""THEN6297
  132. 6298 IFC$="M"THEN5100
  133. 6299 IFC$<>"C"GOTO6297
  134. 6300 PRINT"[147] CALCULATION OF TOTAL INCOME            ":PRINT
  135. 6310 PRINT:PRINT" INCOME FROM EMPLOYMENT                 ":PRINT
  136. 6320 PRINT"EMPLOYMENT INCOME BEFORE DEDUCTIONS FROM    BOX (C) ="
  137. 6330 INPUTA(0,2):PRINT
  138. 6340 PRINT"COMMISSIONS FROM BOX (P) ON ALL T4 SLIPS   INCLUDED IN ABOVE TOTAL ="
  139. 6350 INPUTA(0,3):PRINT
  140. 6355 IFA(0,3)<=A(0,2)THENGOTO6360
  141. 6356 PRINT"COMMISSIONS MUST BE IN EMPLOYMENT INCOME ABOVE":GOTO6320
  142. 6360 PRINT"OTHER EMPLOYMENT INCOME (PLEASE SPECIFY)":INPUT"TYPE";B$(2,1)
  143. 6370 INPUT"AMOUNT";A(0,4):PRINT
  144. 6380 PRINT"OTHER ALLOWABLE EXPENSES =":INPUTF(1,2)
  145. 6390 PRINT:PRINT"DATA ENTERED CORRECTLY? (Y/N)":PRINT
  146. 6400 GETR$:IFR$=""THEN6400
  147. 6410 IFR$="N"THEN6300
  148. 6455 PRINT"'C' TO CONTINUE, 'M' FOR MENU"
  149. 6456 GOSUB20000
  150. 6460 GETC$:IFC$=""THEN6460
  151. 6465 IFC$="M"THEN5100
  152. 6467 IFC$<>"C"THEN6460
  153. 6470 PRINT"[147] PENSION INCOME                         ":PRINT
  154. 6480 PRINT"OLD AGE SECURITY PENSION       (T4A(OAS) SLIP) =":INPUTA(1,1)
  155. 6490 PRINT"CANADA OR QUEBEC PENSION PLAN BENEFITS  (T4A(P) SLIP) =":INPUTA(1,2)
  156. 6500 PRINT"OTHER PENSIONS OR SUPERANNUATION         (T4A SLIP) =":INPUTA(1,3)
  157. 6510 PRINT:PRINT"DATA ENTERED CORRECTLY? (Y/N)"
  158. 6520 GETR$:IFR$=""THEN6520
  159. 6530 IFR$="N"THEN6470
  160. 6532 PRINT"'C' TO CONTINUE, 'M' FOR MENU":PRINT
  161. 6533 GOSUB20000
  162. 6534 GETC$:IFC$=""THEN6534
  163. 6536 IFC$="M"THEN5100
  164. 6538 IFC$<>"C"THEN6534
  165. 6540 PRINT"[147] INCOME FROM OTHER SOURCES              ":PRINT
  166. 6550 PRINT"TAXABLE FAMILY ALLOWANCE PAYMENTS       (TFA1 SLIP) =":INPUTA(1,4)
  167. 6560 PRINT"UNEMPLOYMENT INSURANCE BENEFITS         (T4U SLIP) =":INPUTA(1,5)
  168. 6570 PRINT"TAXABLE AMOUNT OF DIVIDENDS FROM"
  169. 6580 PRINT" TAXABLE CANADIAN CORPORATIONS          (SCHEDULE 4) =":INPUTA(2,0)
  170. 6590 PRINT"INTEREST AND OTHER INVESTMENT INCOME    (SCHEDULE 4) =":INPUTA(2,1)
  171. 6600 PRINT"RENTAL INCOME - NET (SCHEDULE 7) =":INPUTA(2,2)
  172. 6610 PRINT"TAXABLE CAPITAL GAINS                    (ALLOWABLE CAPITAL LOSSES)"
  173. 6620 PRINT"(SCHEDULE 2) =":INPUTA(2,3)
  174. 6650 PRINT"OTHER INCOME (PLEASE SPECIFY) ="
  175. 6660 INPUT"TYPE";B$(2,4):INPUT"AMOUNT";A(2,4)
  176. 6670 PRINT:PRINT"DATA ENTERED CORRECTLY? (Y/N)"
  177. 6680 GETR$:IFR$=""THEN6680
  178. 6690 IFR$="N"THEN6540
  179. 6692 PRINT"'C' TO CONTINUE, 'M' FOR MENU":PRINT
  180. 6693 GOSUB20000
  181. 6694 GETC$:IFC$=""THEN6694
  182. 6696 IFC$="M"THEN5100
  183. 6698 IFC$<>"C"THEN6694
  184. 6700 PRINT"[147] SELF-EMPLOYED INCOME - NET             ":PRINT
  185. 6710 PRINT"BUSINESS INCOME =":INPUTA(2,5)
  186. 6720 PRINT"PROFESSIONAL INCOME =":INPUTA(3,0)
  187. 6730 PRINT"COMMISSION INCOME =":INPUTA(3,1)
  188. 6740 PRINT"FARMING INCOME =":INPUTA(3,2)
  189. 6750 PRINT"FISHING INCOME =":INPUTA(3,3)
  190. 6760 PRINT:PRINT"DATA ENTERED CORRECTLY? (Y/N)":PRINT
  191. 6770 GETR$:IFR$=""THEN6770
  192. 6780 IFR$="N"THEN6700
  193. 6825 PRINT"'C' TO CONTINUE, 'M' FOR MENU"
  194. 6826 GOSUB20000
  195. 6830 GETC$:IFC$=""THEN6830
  196. 6835 IFC$="M"THEN5100
  197. 6837 IFC$<>"C"THEN6830
  198. 6840 PRINT"[147] DEDUCTIONS FROM TOTAL INCOME           ":PRINT
  199. 6850 PRINT"CANADA OR QUEBEC PENSION PLAN             CONTRIBUTIONS"
  200. 6860 PRINT"  - FROM EMPLOYMENT (BOX (D) ON ALL T4      SLIPS) =":INPUTA(4,0)
  201. 6865 IFA(4,0)>338.40THENPRINT"TOO HIGH, MAXIMUM IS $338.40":GOTO6850
  202. 6870 PRINT"CONTRIBUTION PAYABLE ON SELF-EMPLOYED     EARNINGS =":INPUTA(4,1)
  203. 6880 PRINT"UNEMPLOYMENT INSURANCE PREMIUMS          (BOX (E) ON ALL T4 SLIPS) ="
  204. 6890 INPUTA(4,2)
  205. 6895 IFA(4,2)>508.56THENPRINT"TOO HIGH, MAXIMUM IS $508.56":GOTO6880
  206. 6900 PRINT"REGISTERED PENSION PLAN CONTRIBUTIONS =":INPUTA(4,3)
  207. 6910 PRINT"REGISTERED RETIREMENT SAVINGS PLAN        PREMIUMS =":INPUTA(4,4)
  208. 6920 PRINT"REGISTERED HOME OWNERSHIP SAVINGS PLAN  CONTRIBUTIONS =":INPUTA(4,5)
  209. 6930 PRINT"ANNUAL UNION, PROFESSIONAL OR LIKE DUES =":INPUTA(5,0)
  210. 6940 PRINT"TUITION FEES =":INPUTA(5,1)
  211. 6950 PRINT"CHILD CARE EXPENSES (SCHEDULE 5) =":INPUTA(5,2)
  212. 6970 PRINT"ALLOWABLE BUSINESS INVESTMENT LOSSES =":INPUTA(5,3)
  213. 6975 PRINT"INDEXED SECURITY INVESTMENT PLAN - "
  214. 6976 PRINT"ALLOWABLE CAPITAL LOSSES =":INPUTF(0,0)
  215. 6980 PRINT"OTHER DEDUCTIONS (PLEASE SPECIFY) =":INPUT"TYPE";B$(3,1)
  216. 6990 INPUT"AMOUNT";A(5,4)
  217. 7000 PRINT"ACCUM. FORWARD AVERAGING AMOUNT WITH. =":INPUTF(0,1)
  218. 7010 PRINT:PRINT"DATA ENTERED CORRECTLY? (Y/N)":PRINT
  219. 7020 GETR$:IFR$=""THEN7020
  220. 7030 IFR$="N"THEN6840
  221. 7065 PRINT"'C' TO CONTINUE, 'M' FOR MENU"
  222. 7066 GOSUB20000
  223. 7070 GETC$:IFC$=""THEN7070
  224. 7075 IFC$="M"THEN5100
  225. 7077 IFC$<>"C"THEN7070
  226. 7080 PRINT"[147] CLAIM FOR PERSONAL EXEMPTIONS          ":PRINT
  227. 7090 PRINT"MARRIED EXEMPTION? (Y/N)"
  228. 7092 GETB$(3,3):IFB$(3,3)=""THEN7092
  229. 7094 IFB$(3,3)="N"THEN7120
  230. 7096 IFB$(3,3)<>"Y"THEN7092
  231. 7100 PRINT"SPOUSE'S NET INCOME FOR YEAR =":INPUTC(0,1)
  232. 7120 PRINT"NUMBER OF CHILDREN UNDER 12 =":INPUTC(0,4)
  233. 7130 PRINT"NUMBER OF CHILDREN OVER 12 AND UNDER 18 UNLESS IN"
  234. 7140 PRINT" FULL-TIME ATTENDANCE AT A SCHOOL OR     UNIVERSITY OR WAS INFIRM ="
  235. 7150 INPUTC(0,5)
  236. 7190 PRINT"ADDITIONAL PERSONAL EXEMPTIONS          (SCHEDULE 6) =":INPUTC(1,1)
  237. 7200 PRINT:PRINT"DATA ENTERED CORRECTLY? (Y/N)"
  238. 7210 GETR$:IFR$=""THEN7210
  239. 7220 IFR$="N"THEN7080
  240. 7222 PRINT"'C' TO CONTINUE, 'M' FOR MENU":PRINT
  241. 7223 GOSUB20000
  242. 7224 GETC$:IFC$=""THEN7224
  243. 7226 IFC$="M"THEN5100
  244. 7228 IFC$<>"C"THEN7224
  245. 7230 PRINT"[147] OTHER DEDUCTIONS FROM NET INCOME       ":PRINT
  246. 7250 PRINT"INTEREST, DIVIDENDS AND CAPITAL GAINS      DEDUCTION =":INPUTC(2,0)
  247. 7255 IFC(2,0)>1000THENPRINT"TOO HIGH, MAXIMUM IS $1000":GOTO7250
  248. 7260 PRINT"PENSION INCOME DEDUCTION =":INPUTC(2,1)
  249. 7265 IFC(2,0)>1000THENPRINT"TOO HIGH, MAXIMUM IS $1000":GOTO7250
  250. 7270 PRINT"MEDICAL EXPENSES =":INPUTC(1,3)
  251. 7300 PRINT"CHARITABLE DONATIONS =":INPUTC(1,5)
  252. 7310 PRINT"GIFTS TO CANADA OR A PROVINCE =":INPUTC(2,5)
  253. 7340 PRINT"DEDUCTION FOR BLIND PERSONS OR PERSONS"
  254. 7350 PRINT"  CONFINED (DEDUCT $2480) =":INPUTC(2,2)
  255. 7355 IFC(2,2)<>2480ANDC(2,2)<>0THENPRINT"DEDUCTION ALLOWED IS $2480":GOTO7340
  256. 7360 PRINT"EDUCATION DEDUCTION       (FORM T2202 OR T2202A) =":INPUTC(2,3)
  257. 7362 IFC(2,3)>600THENPRINT"TOO HIGH, ONLY $50 PER MONTH ALLOWED":GOTO7360
  258. 7365 PRINT"EMPLOYEE STOCK OPTION DEDUCTION =":INPUTE(4,4)
  259. 7368 PRINT"UNEMPLOYMENT INSURANCE BENEFIT REPAYMENT PAYABLE =":INPUTC(3,0)
  260. 7370 PRINT"ELIGIBLE DEDUCTIONS TRANSFERRED FROM     SPOUSE (SCHEDULE 3) ="
  261. 7380 INPUTC(2,4)
  262. 7410 PRINT"NON-CAPITAL LOSSES OF OTHER YEARS =":INPUTC(3,1)
  263. 7420 PRINT"CAPITAL LOSSES OF OTHER YEARS =":INPUTC(3,2)
  264. 7430 PRINT"FORWARD AVER. ELECTIVE INCOME DEDUCTION =":INPUTF(0,2)
  265. 7440 PRINT:PRINT"DATA ENTERED CORRECTLY? (Y/N)":PRINT
  266. 7450 GETR$:IFR$=""THEN7450
  267. 7460 IFR$="N"THEN7230
  268. 7525 PRINT"'C' TO CONTINUE, 'M' FOR MENU"
  269. 7526 GOSUB20000
  270. 7530 GETC$:IFC$=""THEN7530
  271. 7535 IFC$="M"THEN5100
  272. 7537 IFC$<>"C"THEN7530
  273. 7540 PRINT"[147] OTHER INFORMATION                      ":PRINT
  274. 7550 PRINT"AMOUNT OF SPOUSE'S FEDERAL TAX REDUCTION =":INPUTE(3,0)
  275. 7560 PRINT"TOTAL TAX DEDUCTED PER INFORMATION SLIPS =":INPUTE(3,1)
  276. 7565 PRINT"CHILD TAX CREDIT (SCHEDULE 10) =":INPUTE(3,5)
  277. 7570 PRINT"CANADA PENSION PLAN OVERPAYMENT =":INPUTE(3,2)
  278. 7580 PRINT"UNEMPLOYMENT INSURANCE OVERPAYMENT =":INPUTE(3,3)
  279. 7590 PRINT"AMOUNTS PAID BY INSTALMENTS =":INPUTE(3,4)
  280. 7600 PRINT"FORWARD AVER. TAX CREDIT (FORM T581) =":INPUTF(1,0)
  281. 7605 PRINT"REFUND OF BUS. INV. TAX CREDIT (FORM      T2038-IND) =":INPUTF(1,1)
  282. 7610 PRINT"FEDERAL POLITICAL CONTRIBUTIONS=":INPUTE(4,5)
  283. 7620 PRINT"SHARE-PURCHASE TAX CREDIT (FORM T2111) =":INPUTF(0,3)
  284. 7630 PRINT"BUSINESS INVESTMENT TAX CREDIT  (FORM     T2038-IND) =":INPUTE(4,2)
  285. 7640 PRINT"EMPLOYMENT TAX CREDIT (FORM 2208) =":INPUTE(4,3)
  286. 7650 PRINT"FED. FORWARD AVER. TAX (FORM T540) =":INPUTF(0,4)
  287. 7660 PRINT"ONT. FORWARD AVER. TAX (FORM T540) =":INPUTF(0,5)
  288. 7665 PRINT"SCIENTIFIC RESEARCH TAX CREDIT          (FORM T2114) =":INPUTE(5,5)
  289. 7685 PRINT"FOREIGN INCOME =":INPUTF(1,3)
  290. 7687 PRINT"FOREIGN TAXES PAID =":INPUTF(1,4)
  291. 7688 PRINT"PROV. FOREIGN TAX CREDIT (FORM T2036) =":INPUTF(2,4)
  292. 7690 PRINT:PRINT"DATA ENTERED CORRECTLY? (Y/N)"
  293. 7700 GETR$:IFR$=""THEN7700
  294. 7710 IFR$="N"THEN7540
  295. 7712 PRINT"'C' TO CONTINUE, 'M' FOR MENU":PRINT
  296. 7713 GOSUB20000
  297. 7714 GETC$:IFC$=""THEN7714
  298. 7716 IFC$="M"THEN5100
  299. 7718 IFC$<>"C"THEN7714
  300. 7948 PRINT"[147] DO YOU QUALIFY FOR ANY ONTARIO            TAX CREDITS? (Y/N)"
  301. 7950 GETT$:IFT$=""THEN7950
  302. 7960 IFT$="N"THEN13000
  303. 7965 IFT$<>"Y"THEN7950
  304. 7970 PRINT"[147] ONTARIO TAX CREDITS                    ":PRINT
  305. 7980 PRINT"TOTAL RENTAL PAYMENTS IN YEAR =":INPUTC(5,4)
  306. 7990 PRINT"TOTAL PROPERTY TAXES PAID IN YEAR =":INPUTC(5,5)
  307. 8000 PRINT"COLLEGE RESIDENCE (CLAIM $25) =":INPUTD(0,0)
  308. 8160 PRINT:PRINT
  309. 8170 PRINT"TOTAL ONTARIO POLITICAL CONTRIBUTIONS    IN YEAR =":INPUTD(1,0)
  310. 8310 PRINT:PRINT"DATA ENTERED CORRECTLY? (Y/N)"
  311. 8320 GETR$:IFR$=""THEN8320
  312. 8330 IFR$="N"THEN7970
  313. 8331 PRINT"'C' TO CALCULATE TAX, 'M' FOR MENU":PRINT
  314. 8332 GOSUB20000
  315. 8333 GETC$:IFC$=""THEN8333
  316. 8335 IFC$="C"THEN13000
  317. 8336 IFC$="M"THEN5100
  318. 8338 IFC$<>"C"THEN8333
  319. 8340 PRINT"[147][144] 1984 TAX RETURN FOR "B$(0,0)
  320. 8350 PRINT"NET EMPLOYMENT EARNINGS ="A(1,0)
  321. 8360 PRINT"TOTAL INCOME ="A(3,5)
  322. 8370 PRINT"NET INCOME ="C(0,0)
  323. 8380 PRINT"TOTAL DEDUCTIONS ="F(5,1)+E(0,1)
  324. 8390 PRINT"TAXABLE INCOME ="C(3,5)
  325. 8410 PRINT"FEDERAL TAX PAYABLE ="C(5,2)
  326. 8420 PRINT"ONTARIO TAX PAYABLE ="C(4,0)
  327. 8430 PRINT"CPP CONT PAY ON SELF-EMP EARN ="A(4,1)
  328. 8440 PRINT"UI BENEFIT REPAYMENT PAYABLE ="C(3,0)
  329. 8460 PRINT"TOTAL TAX PAYABLE ="F(5,4)
  330. 8470 PRINT"TAX DEDUCTED PER INFORMATION             SLIPS ="E(3,1)
  331. 8480 PRINT"ONTARIO TAX CREDITS ="D(1,3)
  332. 8485 PRINT"CHILD TAX CREDIT ="E(3,5)
  333. 8490 PRINT"CANADA PENSION PLAN OVERPAYMENT ="E(3,2)
  334. 8500 PRINT"UNEMPLOYMENT INS. OVERPAYMENT ="E(3,3)
  335. 8510 PRINT"AMOUNTS PAID BY INSTALMENTS ="E(3,4)
  336. 8530 PRINT"FORWARD AVER. TAX CREDIT ="F(1,0)
  337. 8540 PRINT"REFUND OF BUS. INV. TAX CREDIT =" F(1,1)
  338. 8560 IFD(2,0)>0THENB$(4,5)="TAX PAYABLE"
  339. 8570 IFD(2,0)<0THENB$(5,0)="REFUND"
  340. 8580 IFD(2,0)>0THENPRINTB$(4,5)" OF " ABS(D(2,0))
  341. 8585 IFD(2,0)=0THENPRINT"NO TAX PAYABLE OR REFUND"
  342. 8590 IFD(2,0)<0THENPRINTB$(5,0) " OF " ABS(D(2,0))
  343. 8600 PRINT"'P' FOR PRINTOUT OR 'M' FOR MENU"
  344. 8603 GOSUB20000
  345. 8605 GETP$:IFP$=""THEN8605
  346. 8615 IFP$="M"THEN5100
  347. 8622 IFP$<>"P"THEN8605
  348. 8623 PRINT"[147]PLEASE LINE UP THE PAPER AND PRESS 'G'"
  349. 8625 GOSUB20000
  350. 8626 GETV$:IFV$=""THEN8626
  351. 8628 IFV$<>"G"GOTO8625
  352. 8629 PRINT"[147]           PRINTING RETURN"
  353. 8630 OPEN1,4
  354. 8640 CMD1
  355. 8650 PRINT"1984 FEDERAL AND ONTARIO INDIVIDUAL TAX RETURN"
  356. 8660 PRINT:PRINTB$(0,0):PRINTB$(0,1):PRINTB$(0,2):PRINTB$(0,3):PRINTB$(0,4)
  357. 8670 PRINT"S.I.N.: "B$(0,5):PRINT"BIRTHDATE: "B$(1,0);A(0,1);A(0,0)
  358. 8680 PRINT"NAME OF SPOUSE: "B$(1,2):PRINT"SPOUSE'S S.I.N.: "B$(1,3)
  359. 8690 PRINT"TYPE OF WORK IN YEAR: "B$(1,4):PRINT"PRESENT EMPLOYER: "B$(1,5)
  360. 8710 PRINT"CALCULATION OF TOTAL INCOME":PRINT
  361. 8720 PRINT"INCOME FROM EMPLOYMENT":PRINT
  362. 8730 PRINT"EMPLOYMENT INCOME BEFORE DEDUCTIONS (LINE 101)=";
  363. 8735 X=10:N=A(0,2):GOSUB10000
  364. 8740 PRINT"COMMISSIONS INCLUDED IN ABOVE TOTAL (LINE 102)=";
  365. 8745 X=0:N=A(0,3):GOSUB10000
  366. 8750 PRINT"OTHER EMPLOYMENT INCOME:  TYPE =" TAB(15)B$(2,1)
  367. 8760 PRINT"                          AMOUNT (LINE 104)=";
  368. 8763 X=13:N=A(0,4):GOSUB10000
  369. 8765 PRINTTAB(61)"-------------"
  370. 8770 PRINT"TOTAL EMPLOYMENT EARNINGS (LINE 105)=";
  371. 8775 X=20:N=A(0,2)+A(0,4):GOSUB10000
  372. 8777 PRINTTAB(61)"-------------"
  373. 8780 PRINT"SUBTRACT: EMPLOYMENT EXPENSE DEDUCTION (LINE 108)=";
  374. 8785 X=07:N=A(0,5):GOSUB10000
  375. 8790 PRINT"          OTHER ALLOWABLE EXPENSES (LINE 109)=";
  376. 8793 X=11:N=F(1,2):GOSUB10000
  377. 8794 PRINTTAB(61)"-------------"
  378. 8795 PRINT"TOTAL EMPLOYMENT EXPENSES (LINE 110)=";
  379. 8796 X=20:N=A(0,5)+F(1,2):GOSUB10000
  380. 8797 PRINTTAB(61)"-------------"
  381. 8800 PRINT"NET EMPLOYMENT EARNINGS (LINE 111)=";
  382. 8805 X=22:N=A(1,0):GOSUB10000
  383. 8807 PRINTTAB(61)"-------------"
  384. 8810 PRINT:PRINT"PENSION INCOME":PRINT
  385. 8820 PRINT"OLD AGE SECURITY PENSION (LINE 113)=";
  386. 8825 X=21:N=A(1,1):GOSUB10000
  387. 8830 PRINT"CANADA (OR QUEBEC) PENSION PLAN BENEFITS (LINE 114)=";
  388. 8835 X=05:N=A(1,2):GOSUB10000
  389. 8840 PRINT"OTHER PENSIONS OR SUPERANNUATION (LINE 115)=";
  390. 8845 X=13:N=A(1,3):GOSUB10000
  391. 8850 PRINT:PRINT:PRINT"INCOME FROM OTHER SOURCES":PRINT
  392. 8860 PRINT"TAXABLE FAMILY ALLOWANCE PAYMENTS (LINE 118)=";
  393. 8865 X=12:N=A(1,4):GOSUB10000
  394. 8870 PRINT"UNEMPLOYMENT INSURANCE BENEFITS (LINE 119)=";
  395. 8875 X=14:N=A(1,5):GOSUB10000
  396. 8880 PRINT"TAXABLE AMOUNT OF DIVIDENDS FROM TAXABLE"
  397. 8890 PRINT"  CANADIAN CORPORATIONS (LINE 120)=";
  398. 8895 X=22:N=A(2,0):GOSUB10000
  399. 8900 PRINT"INTEREST AND OTHER INVESTMENT INCOME (LINE 121)=";
  400. 8905 X=09:N=A(2,1):GOSUB10000
  401. 8910 PRINT"RENTAL INCOME: NET (LINE 126)=";
  402. 8915 X=27:N=A(2,2):GOSUB10000
  403. 8920 PRINT"TAXABLE CAP. GAINS (ALLOWABLE CAP. LOSSES) (LINE 127)=";
  404. 8925 X=03:N=A(2,3):GOSUB10000
  405. 8950 PRINT"OTHER INCOME: TYPE = "TAB(26)B$(2,4)
  406. 8955 PRINT"              AMOUNT (LINE 130)=";
  407. 8957 X=25:N=A(2,4):GOSUB10000
  408. 8960 PRINT:PRINT"SELF-EMPLOYED INCOME - NET":PRINT
  409. 8970 PRINT"BUSINESS INCOME (LINE 135)=";
  410. 8975 X=30:N=A(2,5):GOSUB10000
  411. 8980 PRINT"PROFESSIONAL INCOME (LINE 137)=";
  412. 8985 X=26:N=A(3,0):GOSUB10000
  413. 8990 PRINT"COMMISSION INCOME (LINE 139)=";
  414. 8995 X=28:N=A(3,1):GOSUB10000
  415. 9000 PRINT"FARMING INCOME (LINE 141)=";
  416. 9005 X=31:N=A(3,2):GOSUB10000
  417. 9010 PRINT"FISHING INCOME (LINE 143)=";
  418. 9012 X=31:N=A(3,3):GOSUB10000
  419. 9015 PRINTTAB(61)"------------"
  420. 9020 PRINT:PRINT"TOTAL INCOME (LINE 150)=";
  421. 9022 X=33:N=A(3,5):GOSUB10000
  422. 9025 PRINTTAB(61)"------------"
  423. 9030 PRINT:PRINT:PRINT
  424. 9040 PRINT,,,,,,"PAGE 2"
  425. 9050 PRINT"CALCULATION OF TAXABLE INCOME":PRINT
  426. 9055 PRINT"TOTAL INCOME (LINE 150)=";
  427. 9057 X=33:N=A(3,5):GOSUB10000
  428. 9060 PRINT"DEDUCTIONS FROM TOTAL INCOME"
  429. 9070 PRINT"CANADA PENSION PLAN CONTRIBUTIONS (LINE 202)=";
  430. 9075 X=12:N=A(4,0):GOSUB10000
  431. 9080 PRINT"CONT. PAYABLE ON SELF-EMPLOYED EARNINGS (LINE 203)=";
  432. 9085 X=06:N=A(4,1):GOSUB10000
  433. 9090 PRINT"UNEMPLOYMENT INSURANCE PREMIUMS (LINE 204)=";
  434. 9095 X=14:N=A(4,2):GOSUB10000
  435. 9100 PRINT"REGISTERED PENSION PLAN CONTRIBUTIONS (LINE 207)=";
  436. 9105 X=08:N=A(4,3):GOSUB10000
  437. 9110 PRINT"REGISTERED RETIREMENT SAVINGS PLAN PREMIUMS (LINE 208)=";
  438. 9115 X=02:N=A(4,4):GOSUB10000
  439. 9120 PRINT"REGISTERED HOME OWNERSHIP SAVINGS"
  440. 9130 PRINT"  PLAN CONTRIBUTIONS (LINE 211)=";
  441. 9135 X=25:N=A(4,5):GOSUB10000
  442. 9140 PRINT"ANNUAL UNION, PROFESSIONAL OR LIKE DUES (LINE 212)=";
  443. 9145 X=06:N=A(5,0):GOSUB10000
  444. 9150 PRINT"TUITION FEES (LINE 213)=";
  445. 9155 X=33:N=A(5,1):GOSUB10000
  446. 9160 PRINT"CHILD CARE EXPENSES (LINE 214)=";
  447. 9165 X=26:N=A(5,2):GOSUB10000
  448. 9170 PRINT"ALLOWABLE BUSINESS INVESTMENT LOSSES (LINE 217)=";
  449. 9172 X=09:N=A(5,3):GOSUB10000
  450. 9174 PRINT"INDEXED SECURITY INVESTMENT PLAN ALLOWABLE"
  451. 9176 PRINT"  CAPITAL LOSSES (LINE 218)=";
  452. 9177 X=29:N=F(0,0):GOSUB10000
  453. 9180 PRINT"OTHER DEDUCTIONS: TYPE = "TAB(22)B$(3,1)
  454. 9184 PRINT"                  AMOUNT (LINE 222)=";
  455. 9185 X=21:N=A(5,4):GOSUB10000
  456. 9186 PRINTTAB(61)"------------"
  457. 9187 PRINT"SUB-TOTAL (LINE 223)=";
  458. 9188 X=36:N=F(5,5):GOSUB10000
  459. 9189 PRINTTAB(61)"------------"
  460. 9190 PRINT"NET INCOME (LINE 224)=";
  461. 9195 X=35:N=C(0,0):GOSUB10000
  462. 9200 PRINT"ACCUM. FORWARD AVER. AMOUNT WITH. (LINE 225)=";
  463. 9201 X=12:N=F(0,1):GOSUB10000
  464. 9202 PRINTTAB(61)"------------"
  465. 9205 PRINT"SUB-TOTAL (LINE 228)=";
  466. 9206 X=36:N=F(5,0):GOSUB10000
  467. 9207 PRINTTAB(61)"------------"
  468. 9210 PRINT"CLAIM FOR PERSONAL EXEMPTIONS"
  469. 9220 PRINT"BASIC PERSONAL EXEMPTION =";
  470. 9225 X=31:N=C(0,2):GOSUB10000
  471. 9230 PRINT"AGE EXEMPTION =";
  472. 9235 X=42:N=C(0,3):GOSUB10000
  473. 9240 PRINT"MARRIED EXEMPTION (LINE 230)=";
  474. 9245 X=28:N=E(0,0):GOSUB10000
  475. 9250 PRINT"EXEMPTION FOR WHOLLY DEPENDENT CHILDREN (LINE 231)=";
  476. 9255 X=06:N=C(1,0):GOSUB10000
  477. 9260 PRINT"ADDITIONAL PERSONAL EXEMPTIONS (LINE 233)=";
  478. 9265 X=15:N=C(1,1):GOSUB10000
  479. 9270 PRINTTAB(61)"------------"
  480. 9280 PRINT"TOTAL PERSONAL EXEMPTIONS (LINE 235)=";
  481. 9281 X=20:N=F(5,1):GOSUB10000
  482. 9282 PRINTTAB(61)"------------"
  483. 9285 PRINT"SUB-TOTAL (LINE 236) =";
  484. 9286 X=35:N=F(5,2):GOSUB10000
  485. 9290 PRINT"OTHER DEDUCTIONS FROM NET INCOME"
  486. 9310 PRINT"INTEREST, DIVIDENDS AND"
  487. 9312 PRINT"  CAPITAL GAINS DEDUCTION (LINE 238)=";
  488. 9313 X=20:N=C(2,0):GOSUB10000
  489. 9315 PRINT"PENSION INCOME DEDUCTION (LINE 240)=";
  490. 9317 X=21:N=C(2,1):GOSUB10000
  491. 9320 PRINT"MEDICAL EXPENSES (LINE 241)=";
  492. 9321 X=16:N=C(1,3):GOSUB10000
  493. 9322 PRINT"  DEDUCT 3% OF NET INCOME";
  494. 9325 X=19:N=INT(((C(0,0)*.03)*100)+.5)/100:GOSUB10000
  495. 9328 PRINT"ALLOWABLE MEDICAL DEDUCTION (LINE 242)=";
  496. 9329 X=18:N=C(1,4):GOSUB10000
  497. 9330 PRINT"CHARITABLE DONATION DEDUCTION (LINE 243)= ";
  498. 9335 X=15:N=C(1,5):GOSUB10000
  499. 9340 PRINT"GIFTS TO CANADA OR PROVINCE (LINE 245)=";
  500. 9345 X=18:N=C(2,5):GOSUB10000
  501. 9390 PRINT"DEDUCTION FOR BLIND PERSONS OR PERSONS"
  502. 9400 PRINT"  CONFINED TO A BED OR WHEELCHAIR (LINE 246)=";
  503. 9405 X=12:N=C(2,2):GOSUB10000
  504. 9410 PRINT"EDUCATION DEDUCTION (LINE 247)=";
  505. 9411 X=26:N=C(2,3):GOSUB10000
  506. 9412 PRINT"EMPLOYEE STOCK OPTION DEDUCTION (LINE 249)=";
  507. 9413 X=14:N=E(4,4):GOSUB10000
  508. 9415 PRINT"UNEMPLOYMENT INS. BENEFIT REPAYMENT PAY. (LINE 250)=";
  509. 9417 X=05:N=C(3,0):GOSUB10000
  510. 9420 PRINT"DEDUCTIONS TRANSFERRED FROM SPOUSE (LINE 251)=";
  511. 9425 X=11:N=C(2,4):GOSUB10000
  512. 9450 PRINT"NON-CAPITAL LOSSES OF OTHER YEARS (LINE 252)=";
  513. 9455 X=12:N=C(3,1):GOSUB10000
  514. 9460 PRINT"CAPITAL LOSSES OF OTHER YEARS (LINE 253)=";
  515. 9461 X=16:N=C(3,2):GOSUB10000
  516. 9462 PRINTTAB(61)"------------"
  517. 9465 PRINT"TOTAL OTHER (LINE 255) =";
  518. 9466 X=33:N=E(0,1):GOSUB10000
  519. 9467 PRINTTAB(61)"------------"
  520. 9470 PRINT"SUB-TOTAL (LINE(256) =";
  521. 9475 X=35:N=F(5,3):GOSUB10000
  522. 9480 PRINT"FORWARD AVER. ELECTIVE INCOME DED. (LINE 257)=";
  523. 9482 X=11:N=F(0,2):GOSUB10000
  524. 9485 PRINTTAB(61)"------------"
  525. 9490 PRINT"TAXABLE INCOME (LINE 260)=";
  526. 9492 X=31:N=C(3,5):GOSUB10000
  527. 9495 PRINTTAB(61)"------------"
  528. 9500 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  529. 9510 PRINT,,,,,,"PAGE 3":PRINT
  530. 9520 PRINT"SUMMARY OF TAX AND CREDITS":PRINT
  531. 9530 PRINT"TAXABLE INCOME (LINE 400)=";
  532. 9535 X=31:N=C(3,5):GOSUB10000
  533. 9540 PRINT:PRINT"FEDERAL TAX PAYABLE (LINE 406)=";
  534. 9545 X=26:N=C(5,1):GOSUB10000
  535. 9550 PRINT:PRINT"SUBTRACT: FEDERAL POLITICAL"
  536. 9560 PRINT"            CONT. TAX CREDIT (LINE 410)=";
  537. 9562 X=17:N=E(4,1):GOSUB10000
  538. 9565 PRINT"          (TOTAL CONTRIBUTIONS (LINE 409))=";
  539. 9566 X=02:N=E(4,5):GOSUB10000
  540. 9570 PRINT"          SHARE-PURCHASE TAX CREDIT (LINE 411)=";
  541. 9575 X=10:N=F(0,3):GOSUB10000
  542. 9580 PRINT"          BUSINESS INVESTMENT TAX CREDIT (LINE 412)=";
  543. 9585 X=05:N=E(4,2):GOSUB10000
  544. 9590 PRINT"          EMPLOYMENT TAX CREDIT CLAIMED (LINE 413)=";
  545. 9591 X=06:N=E(4,3):GOSUB10000
  546. 9593 PRINTTAB(61)"------------"
  547. 9594 PRINT"TOTAL OF ABOVE CREDITS (LINE 416)=";
  548. 9595 X=23:N=F(4,4):GOSUB10000
  549. 9596 PRINTTAB(61)"------------"
  550. 9597 PRINT"FED TAX PAY BEFORE FORWARD AVERAGING (LINE 417)=";
  551. 9598 X=09:N=C(5,1)-F(4,4):GOSUB10000
  552. 9599 PRINTTAB(61)"------------"
  553. 9600 PRINT"ADD: FED. FORWARD AVER. TAX (LINE 418)=";
  554. 9602 X=18:N=F(0,4):GOSUB10000
  555. 9605 PRINTTAB(61)"------------"
  556. 9610 PRINT:PRINT"NET FEDERAL TAX PAYABLE (LINE 420)=";
  557. 9615 X=22:N=C(5,2):GOSUB10000
  558. 9617 PRINTTAB(61)"------------"
  559. 9620 PRINT:PRINT"ONTARIO TAX PAYABLE (LINE 423)=";
  560. 9625 X=26:N=C(5,3):GOSUB10000
  561. 9630 PRINT"ADD: ONT. FORWARD AVER. TAX (LINE 426)=";
  562. 9633 X=18:N=F(0,5):GOSUB10000
  563. 9635 PRINTTAB(61)"------------"
  564. 9640 PRINT:PRINT"NET ONTARIO TAX (LINE 427)=";
  565. 9645 X=30:N=C(4,0):GOSUB10000
  566. 9650 PRINT:PRINT"ADD: CANADA PENSION PLAN CONTRIBUTION PAYABLE"
  567. 9660 PRINT"       ON SELF-EMPLOYED EARNINGS (LINE 432)=";
  568. 9665 X=13:N=A(4,1):GOSUB10000
  569. 9670 PRINT"     UNEMPLOYMENT INSURANCE BENEFIT"
  570. 9680 PRINT"       REPAYMENT PAYABLE (LINE 433)=";
  571. 9682 X=21:N=C(3,0):GOSUB10000
  572. 9685 PRINTTAB(61)"------------"
  573. 9690 PRINT"TOTAL TAXES PAYABLE (LINE 435)=";
  574. 9692 X=26:N=F(5,4):GOSUB10000
  575. 9695 PRINTTAB(61)"------------"
  576. 9700 PRINT:PRINT"TOTAL TAX DEDUCTED"
  577. 9710 PRINT"  PER INFORMATION SLIPS (LINE 440)=";
  578. 9715 X=22:N=E(3,1):GOSUB10000
  579. 9720 PRINT"ONTARIO TAX CREDITS (LINE 448)=";
  580. 9722 X=26:N=D(1,3):GOSUB10000
  581. 9725 PRINT"CHILD TAX CREDIT (LINE 450)=";
  582. 9726 X=29:N=E(3,5):GOSUB10000
  583. 9730 PRINT"CANADA PENSION PLAN OVERPAYMENT (LINE 453)=";
  584. 9735 X=14:N=E(3,2):GOSUB10000
  585. 9740 PRINT"UNEMPLOYMENT INSURANCE OVERPAYMENT (LINE 454)=";
  586. 9745 X=11:N=E(3,3):GOSUB10000
  587. 9750 PRINT"AMOUNTS PAID BY INSTALLMENTS (LINE 455)=";
  588. 9755 X=17:N=E(3,4):GOSUB10000
  589. 9770 PRINT"FORWARD AVER. TAX CREDIT (LINE 458)=";
  590. 9775 X=21:N=F(1,0):GOSUB10000
  591. 9780 PRINT"REFUND OF BUSINESS INV. TAX CREDIT (LINE 459)=";
  592. 9785 X=11:N=F(1,1):GOSUB10000
  593. 9790 PRINTTAB(61)"------------"
  594. 9800 PRINT"TOTAL CREDITS (LINE 463)=";
  595. 9802 X=32:N=F(4,3):GOSUB10000
  596. 9805 PRINTTAB(61)"------------"
  597. 9810 PRINT
  598. 9820 IFD(2,0)>0THENPRINT"TAX PAYABLE OF"
  599. 9821 IFD(2,0)<=0THENGOTO9825
  600. 9822 X=10:N=ABS(D(2,0)):GOSUB10000:PRINT" (LINE 465)":GOTO9835
  601. 9825 IFD(2,0)=0THENPRINT"NO TAX PAYABLE OR REFUND":GOTO9840
  602. 9830 IFD(2,0)<0THENPRINT"REFUND OF"
  603. 9832 X=10:N=ABS(D(2,0)):GOSUB10000:PRINT" LINE (464)"
  604. 9835 PRINTTAB(14)"============="
  605. 9836 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  606. 9840 PRINT#1
  607. 9850 CLOSE1
  608. 9855 GOSUB20000
  609. 9860 GOTO5100
  610. 10000 DEFFNR(N)=(INT(100*N+0.5))/100
  611. 10010 N=FNR(N)
  612. 10020 W=N*100
  613. 10030 BL$="             "
  614. 10040 GOSUB10070
  615. 10050 PRINTTAB(X)S$
  616. 10070 S$=STR$(W)
  617. 10080 L=LEN(S$):S$=MID$(S$,1,L)
  618. 10090 IFL=2THENS$=MID$(BL$,1,12)+".0"+RIGHT$(S$,1):RETURN
  619. 10100 D$="."+RIGHT$(S$,2)
  620. 10110 S$=LEFT$(S$,L-2)+D$
  621. 10120 S$=RIGHT$(BL$,12-L)+S$
  622. 10130 IFN<=999.99ANDN>0THENS$=LEFT$(S$,7)+"  "+RIGHT$(S$,6)
  623. 10135 IFN>=-999.99ANDN<0THENS$=LEFT$(S$,6)+"  "+RIGHT$(S$,7)
  624. 10140 IFN>999.99ANDN<=999999.99THENS$=" "+LEFT$(S$,7)+","+RIGHT$(S$,6)
  625. 10145 IFN<-999.99ANDN>=-999999.99THENS$=" "+LEFT$(S$,7)+","+RIGHT$(S$,6)
  626. 10150 IFN>999999.99THENS$=LEFT$(S$,4)+","+MID$(S$,5,3)+","+RIGHT$(S$,6)
  627. 10155 IFN<-999999.99THENS$=LEFT$(S$,5)+","+MID$(S$,5,3)+","+RIGHT$(S$,6)
  628. 10160 RETURN
  629. 11000 INPUT"[147]FILE TO BE SAVED";F$
  630. 11006 PRINT"SAVING FILE "F$
  631. 11016 Z$=","
  632. 11018 OPEN15,8,5,"0:"+F$+",S,W"
  633. 11020 PRINT#15,B$(0,0)Z$B$(0,1)Z$B$(0,2)Z$B$(0,3)Z$B$(0,4)Z$B$(0,5)
  634. 11021 PRINT#15,B$(1,0)Z$B$(1,1)Z$B$(1,2)Z$B$(1,3)Z$B$(1,4)Z$B$(1,5)
  635. 11022 PRINT#15,B$(2,0)Z$B$(2,1)Z$B$(2,2)Z$B$(2,3)Z$B$(2,4)Z$B$(2,5)
  636. 11023 PRINT#15,B$(3,0)Z$B$(3,1)Z$B$(3,2)Z$B$(3,3)Z$B$(3,4)Z$B$(3,5)
  637. 11024 PRINT#15,B$(4,0)Z$B$(4,1)Z$B$(4,2)Z$B$(4,3)Z$B$(4,4)Z$B$(4,5)
  638. 11025 PRINT#15,B$(5,0)Z$B$(5,1)Z$B$(5,2)Z$B$(5,3)Z$B$(5,4)Z$B$(5,5)
  639. 11026 PRINT#15,A(0,0)Z$A(0,1)Z$A(0,2)Z$A(0,3)Z$A(0,4)Z$A(0,5)
  640. 11027 PRINT#15,A(1,0)Z$A(1,1)Z$A(1,2)Z$A(1,3)Z$A(1,4)Z$A(1,5)
  641. 11028 PRINT#15,A(2,0)Z$A(2,1)Z$A(2,2)Z$A(2,3)Z$A(2,4)Z$A(2,5)
  642. 11029 PRINT#15,A(3,0)Z$A(3,1)Z$A(3,2)Z$A(3,3)Z$A(3,4)Z$A(3,5)
  643. 11030 PRINT#15,A(4,0)Z$A(4,1)Z$A(4,2)Z$A(4,3)Z$A(4,4)Z$A(4,5)
  644. 11031 PRINT#15,A(5,0)Z$A(5,1)Z$A(5,2)Z$A(5,3)Z$A(5,4)Z$A(5,5)
  645. 11032 PRINT#15,C(0,0)Z$C(0,1)Z$C(0,2)Z$C(0,3)Z$C(0,4)Z$C(0,5)
  646. 11033 PRINT#15,C(1,0)Z$C(1,1)Z$C(1,2)Z$C(1,3)Z$C(1,4)Z$C(1,5)
  647. 11034 PRINT#15,C(2,0)Z$C(2,1)Z$C(2,2)Z$C(2,3)Z$C(2,4)Z$C(2,5)
  648. 11035 PRINT#15,C(3,0)Z$C(3,1)Z$C(3,2)Z$C(3,3)Z$C(3,4)Z$C(3,5)
  649. 11036 PRINT#15,C(4,0)Z$C(4,1)Z$C(4,2)Z$C(4,3)Z$C(4,4)Z$C(4,5)
  650. 11037 PRINT#15,C(5,0)Z$C(5,1)Z$C(5,2)Z$C(5,3)Z$C(5,4)Z$C(5,5)
  651. 11038 PRINT#15,D(0,0)Z$D(0,1)Z$D(0,2)Z$D(0,3)Z$D(0,4)Z$D(0,5)
  652. 11039 PRINT#15,D(1,0)Z$D(1,1)Z$D(1,2)Z$D(1,3)Z$D(1,4)Z$D(1,5)
  653. 11040 PRINT#15,D(2,0)Z$D(2,1)Z$D(2,2)Z$D(2,3)Z$D(2,4)Z$D(2,5)
  654. 11041 PRINT#15,D(3,0)Z$D(3,1)Z$D(3,2)Z$D(3,3)Z$D(3,4)Z$D(3,5)
  655. 11042 PRINT#15,D(4,0)Z$D(4,1)Z$D(4,2)Z$D(4,3)Z$D(4,4)Z$D(4,5)
  656. 11043 PRINT#15,D(5,0)Z$D(5,1)Z$D(5,2)Z$D(5,3)Z$D(5,4)Z$D(5,5)
  657. 11044 PRINT#15,E(0,0)Z$E(0,1)Z$E(0,2)Z$E(0,3)Z$E(0,4)Z$E(0,5)
  658. 11045 PRINT#15,E(1,0)Z$E(1,1)Z$E(1,2)Z$E(1,3)Z$E(1,4)Z$E(1,5)
  659. 11046 PRINT#15,E(2,0)Z$E(2,1)Z$E(2,2)Z$E(2,3)Z$E(2,4)Z$E(2,5)
  660. 11047 PRINT#15,E(3,0)Z$E(3,1)Z$E(3,2)Z$E(3,3)Z$E(3,4)Z$E(3,5)
  661. 11048 PRINT#15,E(4,0)Z$E(4,1)Z$E(4,2)Z$E(4,3)Z$E(4,4)Z$E(4,5)
  662. 11049 PRINT#15,E(5,0)Z$E(5,1)Z$E(5,2)Z$E(5,3)Z$E(5,4)Z$E(5,5)
  663. 11050 PRINT#15,F(0,0)Z$F(0,1)Z$F(0,2)Z$F(0,3)Z$F(0,4)Z$F(0,5)
  664. 11051 PRINT#15,F(1,0)Z$F(1,1)Z$F(1,2)Z$F(1,3)Z$F(1,4)Z$F(1,5)
  665. 11052 PRINT#15,F(2,0)Z$F(2,1)Z$F(2,2)Z$F(2,3)Z$F(2,4)Z$F(2,5)
  666. 11053 PRINT#15,F(3,0)Z$F(3,1)Z$F(3,2)Z$F(3,3)Z$F(3,4)Z$F(3,5)
  667. 11054 PRINT#15,F(4,0)Z$F(4,1)Z$F(4,2)Z$F(4,3)Z$F(4,4)Z$F(4,5)
  668. 11055 PRINT#15,F(5,0)Z$F(5,1)Z$F(5,2)Z$F(5,3)Z$F(5,4)Z$F(5,5)
  669. 12000 CLOSE15
  670. 12005 GOSUB15000
  671. 12007 PRINT:PRINT"FILE "F$" SAVED":FORE=1TO1000:NEXTE
  672. 12008 GOSUB20000
  673. 12010 GOTO5100
  674. 13000 PRINT"[147]"
  675. 13002 PRINT"DOING CALCULATIONS"
  676. 13003 IFE(4,5)>0ANDE(4,5)<=100THENE(4,1)=(E(4,5)*.75)
  677. 13004 IFE(4,5)<=0THENE(4,1)=0
  678. 13005 IFE(4,5)>100ANDE(4,5)<=550THENE(4,1)=(75+((E(4,5)-100)*.5))
  679. 13006 IFE(4,5)>550THENE(4,1)=(300+((E(4,5)-550)*.3333333333))
  680. 13007 E(4,1)=INT((E(4,1)*100)+.5)/100
  681. 13008 IFE(4,1)>500THENE(4,1)=500
  682. 13010 A(0,5)=((A(0,2)+A(0,4))*.2):IFA(0,5)>500THENA(0,5)=500
  683. 13012 A(0,5)=INT((A(0,5)*100)+.5)/100:A(1,0)=(A(0,2)+A(0,4)-A(0,5)-F(1,2))
  684. 13014 IFA(1,0)=<0THENA(1,0)=0
  685. 13015 A(1,0)=INT((A(1,0)*100)+.5)/100
  686. 13016 A(3,4)=(A(1,0)+A(1,1)+A(1,2)+A(1,3)+A(1,4)+A(1,5)+A(2,0)+A(2,1)+A(2,2))
  687. 13018 A(3,5)=(A(2,3)+A(2,4)+A(2,5)+A(3,0)+A(3,1)+A(3,2)+A(3,3)+A(3,4))
  688. 13020 IFA(3,5)<0THENA(3,5)=0
  689. 13021 A(3,5)=INT((A(3,5)*100)+.5)/100
  690. 13022 A(5,5)=(A(4,0)+A(4,1)+A(4,2)+A(4,3)+A(4,4)+A(4,5)+A(5,0)+A(5,1))
  691. 13023 F(5,5)=(A(5,5)+A(5,2)+A(5,3)+A(5,4)+F(0,0))
  692. 13024 F(5,5)=INT((F(5,5)*100)+.5)/100
  693. 13025 C(0,0)=A(3,5)-F(5,5):IFC(0,0)=<0THENC(0,0)=0
  694. 13026 F(5,0)=C(0,0)+F(0,1)
  695. 13027 C(0,2)=3960:IFA(0,0)=<1919THENC(0,3)=2480
  696. 13028 C(1,0)=(C(0,4)*710)+(C(0,5)*1360)
  697. 13030 IFC(0,1)=<490THENE(0,0)=3470
  698. 13032 IFC(0,1)>490ANDC(0,1)=<3960THENE(0,0)=(3960-C(0,1))
  699. 13033 IFB$(3,3)="N"THENE(0,0)=0
  700. 13036 C(1,4)=C(1,3)-(C(0,0)*.03):C(1,4)=INT((C(1,4)*100)+.5)/100
  701. 13037 IFC(1,4)=<0THENC(1,4)=0
  702. 13038 IFC(1,5)>=(C(0,0)*.2)THENC(1,5)=(C(0,0)*.2)
  703. 13040 C(3,3)=C(2,0)+C(2,1)+C(1,4)+C(1,5)+C(2,5)+C(2,3)+E(4,4)+C(2,2)
  704. 13041 E(0,1)=(C(3,3)+C(3,0)+C(2,4)+C(3,1)+C(3,2))
  705. 13042 F(5,1)=(C(0,2)+C(0,3)+E(0,0)+C(1,0)+C(1,1)):F(5,2)=F(5,0)-F(5,1)
  706. 13043 F(5,3)=F(5,2)-E(0,1)
  707. 13044 IFF(5,2)<0THENF(5,2)=0:IFF(5,3)<0THENF(5,3)=0
  708. 13045 C(3,5)=F(5,3)-F(0,2)
  709. 13046 C(3,5)=INT((C(3,5)*100)+.5)/100
  710. 13047 IFC(3,5)=<0THENC(3,5)=0
  711. 13048 IFC(3,5)>0ANDC(3,5)=<1238THENC(4,4)=C(3,5)*.06
  712. 13050 IFC(3,5)>1238ANDC(3,5)<2476THENC(4,4)=74+((C(3,5)-1238)*.16)
  713. 13052 IFC(3,5)>2476ANDC(3,5)<4952THENC(4,4)=272+((C(3,5)-2476)*.17)
  714. 13054 IFC(3,5)>4952ANDC(3,5)<7428THENC(4,4)=693+((C(3,5)-4952)*.18)
  715. 13056 IFC(3,5)>7428ANDC(3,5)<12380THENC(4,4)=1139+((C(3,5)-7428)*.19)
  716. 13058 IFC(3,5)>12380ANDC(3,5)<17332THENC(4,4)=2080+((C(3,5)-12380)*.20)
  717. 13060 IFC(3,5)>17332ANDC(3,5)<22284THENC(4,4)=3070+((C(3,5)-17332)*.23)
  718. 13062 IFC(3,5)>22284ANDC(3,5)<34664THENC(4,4)=4209+((C(3,5)-22284)*.25)
  719. 13065 IFC(3,5)>34664ANDC(3,5)<59424THENC(4,4)=7304+((C(3,5)-34664)*.30)
  720. 13066 IFC(3,5)>=59424THENC(4,4)=14732+((C(3,5)-59424)*.34)
  721. 13068 C(4,4)=INT((C(4,4)*100)+.5)/100
  722. 13070 C(4,5)=A(2,0)*.2266666666666:C(4,5)=INT((C(4,5)*100)+.5)/100
  723. 13072 C(5,0)=C(4,4)-C(4,5)-E(5,5)
  724. 13073 F(3,1)=((C(5,0)-6000)*.10):IFF(3,1)<0THENF(3,1)=0
  725. 13074 D(3,0)=(200+E(3,0))-F(3,1):IFD(3,0)<0THEND(3,0)=0
  726. 13075 C(5,1)=C(5,0)-D(3,0)
  727. 13076 F(1,5)=(C(0,0)-C(3,2)-C(2,0))
  728. 13077 IFF(1,5)=0THENF(1,5)=1
  729. 13078 F(2,2)=(C(5,1)+C(4,5)+E(5,5))
  730. 13080 F(2,3)=((F(1,3)/F(1,5))*F(2,2))
  731. 13082 F(2,3)=INT((F(2,3)*100)+.5)/100
  732. 13084 IFF(1,4)<F(2,3)THENF(2,3)=F(1,4)
  733. 13086 C(5,1)=(C(5,1)-F(2,3))
  734. 13087 C(5,1)=INT((C(5,1)*100)+.5)/100
  735. 13088 IFC(5,1)<0THENC(5,1)=0
  736. 13090 C(5,2)=(C(5,1)-E(4,1)-E(4,2)-E(4,3)-F(0,3)+F(0,4))
  737. 13092 IFC(5,2)=<0THENC(5,2)=0
  738. 13093 C(5,2)=INT((C(5,2)*100)+.5)/100
  739. 13094 F(2,0)=(C(5,0)*.48)
  740. 13096 F(2,1)=F(2,0)+((F(2,0)-110.8)*.05)
  741. 13097 C(5,3)=F(2,1)-F(2,4)
  742. 13100 IFC(5,3)<0THENC(5,3)=0
  743. 13102 C(5,3)=(INT((C(5,3)*100)+.5)/100)
  744. 13106 IFC(3,5)<=2026THENC(5,3)=0
  745. 13108 IFC(3,5)>2026ANDC(3,5)<=2218THENC(5,3)=(C(5,3)-((2218-C(3,5))/2))
  746. 13110 C(5,3)=INT((C(5,3)*100)+.5)/100
  747. 13111 IFT$="N"THEN13166
  748. 13114 D(0,2)=((C(5,4)*.2)+C(5,5)+D(0,0)):D(0,2)=INT((D(0,2)*100)+.5)/100
  749. 13115 D(0,1)=D(0,2)*.10:D(0,1)=INT((D(0,1)*100)+.5)/100
  750. 13116 IFD(0,2)>=180THEND(0,2)=180
  751. 13118 D(0,3)=(F(5,1)*.01)
  752. 13120 D(0,3)=INT((D(0,3)*100)+.5)/100
  753. 13122 F(2,5)=(C(3,5)*.02)
  754. 13124 IFC(3,5)<=2026THENF(2,5)=0
  755. 13126 D(0,4)=(D(0,1)+D(0,2)+D(0,3)-F(2,5))
  756. 13128 IFD(0,4)=<0THEND(0,4)=0
  757. 13130 D(0,4)=INT((D(0,4)*100)+.5)/100
  758. 13131 IFD(0,4)>500THEND(0,4)=500
  759. 13142 IFD(1,0)>0ANDD(1,0)<=100THEND(1,1)=(D(1,0)*.75)
  760. 13144 IFD(1,0)<=0THEND(1,1)=0
  761. 13146 IFD(1,0)>100ANDD(1,0)<=550THEND(1,1)=(75+((D(1,0)-100)*.5))
  762. 13148 IFD(1,0)>550THEND(1,1)=(300+((D(1,0)-550)*.333333))
  763. 13150 D(1,1)=INT((D(1,1)*100)+.5)/100
  764. 13152 IFD(1,1)>500THEND(1,1)=500
  765. 13154 D(1,2)=(C(5,3)-D(0,4))
  766. 13156 IFD(1,2)<0THEND(1,2)=0
  767. 13158 IFD(1,1)<D(1,2)THEND(1,4)=D(1,1)
  768. 13160 IFD(1,1)=>D(1,2)THEND(1,4)=D(1,2)
  769. 13162 D(1,3)=D(0,4)+D(1,4):D(1,3)=INT((D(1,3)*100)+.5)/100
  770. 13166 F(4,4)=E(4,1)+F(0,3)+E(4,2)+E(4,3)
  771. 13178 C(4,0)=(C(5,3)+F(0,5))
  772. 13180 IFC(4,0)<0THENC(4,0)=0
  773. 13182 F(4,3)=(E(3,1)+D(1,3)+E(3,2)+E(3,3)+E(3,4)+E(3,5)+F(1,0)+F(1,1))
  774. 13183 F(4,3)=INT((F(4,3)*100)+.5)/100
  775. 13184 F(5,4)=C(5,2)+C(4,0)+A(4,1)+C(3,0)
  776. 13186 F(5,4)=INT((F(5,4)*100)+.5)/100
  777. 13187 D(2,0)=F(5,4)-F(4,3)
  778. 13188 D(2,0)=INT((D(2,0)*100)+.5)/100
  779. 13189 IFD(2,0)>0THENB$(4,5)="TAX PAYABLE"
  780. 13190 IFD(2,0)<0THENB$(5,0)="REFUND"
  781. 13200 GOTO8340
  782. 15000 OPEN15,8,15
  783. 15001 INPUT#15,A$,B$,C$,D$
  784. 15002 PRINT:PRINT:PRINTA$,B$,C$,D$
  785. 15003 CLOSE15
  786. 15004 FORA=1TO1000:NEXTA
  787. 15005 IFB$="FILE NOT FOUND"THENGOTO5100
  788. 15007 GOSUB20000
  789. 15008 RETURN
  790. 18000 PRINT"[147]  TO MAKE A CHANGE, TYPE IN THE CODE"
  791. 18002 PRINT"     BELOW AND PRESS RETURN."
  792. 18004 PRINT"  WHEN YOU HAVE RE-DONE THE SECTION,"
  793. 18006 PRINT"     THEN EXIT TO THE MENU (PRESS 'M')"
  794. 18008 PRINT"     AND RUN THE TAX PROGRAM ('F')."
  795. 18010 PRINT"  A[146][144] BASIC INFORMATION"
  796. 18020 PRINT"  B[146][144] INCOME FROM EMPLOYMENT"
  797. 18030 PRINT"  C[146][144] PENSION INCOME"
  798. 18040 PRINT"  D[146][144] INCOME FROM OTHER SOURCES"
  799. 18050 PRINT"  E[146][144] SELF-EMPLOYED INCOME"
  800. 18060 PRINT"  F[146][144] DEDUCTIONS FROM TOTAL INCOME"
  801. 18070 PRINT"  G[146][144] CLAIM FOR PERSONAL EXEMPTIONS"
  802. 18080 PRINT"  H[146][144] OTHER DEDUCTIONS FROM NET INCOME"
  803. 18090 PRINT"  I[146][144] OTHER INFORMATION"
  804. 18100 PRINT"  J[146][144] ONTARIO TAX CREDITS"
  805. 18105 PRINT"  K[146][144] MENU"
  806. 18106 GOSUB20000
  807. 18110 GETL$:IFL$=""THEN18110
  808. 18200 IFL$="A"THEN6110
  809. 18210 IFL$="B"THEN6300
  810. 18220 IFL$="C"THEN6470
  811. 18230 IFL$="D"THEN6540
  812. 18240 IFL$="E"THEN6700
  813. 18250 IFL$="F"THEN6840
  814. 18260 IFL$="G"THEN7080
  815. 18270 IFL$="H"THEN7230
  816. 18280 IFL$="I"THEN7540
  817. 18290 IFL$="J"THEN7970
  818. 18300 IFL$="K"THEN5100
  819. 18400 GOTO18110
  820. 19000 PRINT"[147]"
  821. 19002 PRINT"PRESS 'C' TO CHANGE COLOURS"
  822. 19004 PRINT"PRESS 'M' FOR MENU"
  823. 19005 GOSUB20000
  824. 19007 GETD$:IFD$=""THEN19007
  825. 19010 BA=53281:BO=53280
  826. 19011 IFD$="M"THEN5100
  827. 19012 POKEBA,10:POKEBO,2
  828. 19014 GETD$:IFD$=""THEN19014
  829. 19015 IFD$="M"THEN5100
  830. 19016 POKEBA,13:POKEBO,5
  831. 19018 GETD$:IFD$=""THEN19018
  832. 19019 IFD$="M"THEN5100
  833. 19020 POKEBA,14:POKEBO,6
  834. 19022 GETD$:IFD$=""THEN19022
  835. 19023 IFD$="M"THEN5100
  836. 19024 POKEBA,15:POKEBO,11
  837. 19026 GETD$:IFD$=""THEN19026
  838. 19027 IFD$="M"THEN5100
  839. 19028 POKEBA,7:POKEBO,9
  840. 19030 GETD$:IFD$=""THEN19030
  841. 19031 IFD$="M"THEN5100
  842. 19032 POKEBA,1:POKEBO,0
  843. 19033 IFD$="M"THEN5100
  844. 19034 GETD$:IFD$=""THEN19034
  845. 19035 IFD$="M"THEN5100
  846. 19036 POKEBA,6:POKEBO,6
  847. 19038 IFD$="M"THEN5100
  848. 19040 GETD$:IFD$=""THEN19040
  849. 19041 IFD$="M"THEN5100
  850. 19042 POKEBA,11:POKEBO,11
  851. 19044 IFD$="M"THEN5100
  852. 19046 GETD$:IFD$=""THEN19046
  853. 19047 IFD$="M"THEN5100
  854. 19048 POKEBA,12:POKEBO,12
  855. 19050 IFD$="M"THEN5100
  856. 19052 GETD$:IFD$=""THEN19052
  857. 19053 IFD$="M"THEN5100
  858. 19054 POKEBA,13:POKEBO,13
  859. 19056 IFD$="M"THEN5100
  860. 19058 GETD$:IFD$=""THEN19058
  861. 19100 GOTO19012
  862. 20000 POKE54296,15:POKE54276,33:POKE54277,9:POKE54278,0
  863. 20010 POKE54273,51:POKE54272,97:FORD=1TO400:NEXT:POKE54276,0
  864. 20020 RETURN
  865.